home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt3sp4.arc / SENDKER1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-10-03  |  1.8 KB  |  45 lines
  1. (*----------------------------------------------------------------------*)
  2. (*              Send_Kermit_File --- Upload file using Kermit           *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. OVERLAY PROCEDURE Send_Kermit_File;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Send_Kermit_File                                     *)
  10. (*                                                                      *)
  11. (*     Purpose:    Uploads file to remote using Kermit protocol         *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Send_Kermit_File;                                             *)
  16. (*                                                                      *)
  17. (*----------------------------------------------------------------------*)
  18.  
  19. CONST
  20.    EOF_Packet   = 'Z';
  21.    Break_Packet = 'B';
  22.  
  23. VAR
  24.    Buffer_Pos    : INTEGER;
  25.    Buffer_Size   : INTEGER;
  26.    Write_Count   : INTEGER;
  27.    Err           : INTEGER;
  28.    Menu_Title    : AnyStr;
  29.    Local_Save    : Saved_Screen_Ptr;
  30.    Local_Save_2  : Saved_Screen_Ptr;
  31.    File_Pattern  : AnyStr;
  32.    Stop_Send     : BOOLEAN;
  33.    File_Entry    : Directory_Record;
  34.    OK_File       : BOOLEAN;
  35.    Try           : INTEGER;
  36.    Send_Done     : BOOLEAN;
  37.    Kermit_Menu   : Menu_Type;
  38.    I             : INTEGER;
  39.    J             : INTEGER;
  40.    Kermit_Done   : BOOLEAN;
  41.    Host_Count    : INTEGER;
  42.    Menu_Choice   : INTEGER;
  43.    Long_Buffer   : BOOLEAN;
  44.    Buffer_Length : INTEGER;
  45.    Read_Buffer   : File_Handle_Buffer_Ptr;